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Abstract : 

Inspired by ACTORS [Greif and Hewitt] [Smith and Hewitt], we have 
implemented an interpreter for a LISP-like language, SCHEME, based on the 
lambda calculus [Church], but extended for side effects, multiprocessing, and 
process synchronization. The purpose of this implementation is tutorial. We 
wish to: 

(1) alleviate the confusion caused by Micro-PLANNIER, CONNIVER, etc. by 
clarifying the embedding of non-recursive control structures in a recursive 
host language like LISP. 

(2) explain how to use these control structures, independent of such issues as 
pattern matching and data base manipulation. 

(3) have a simple concrete experimental domain for certain issues of 
programming semantics c^nd ^tyle. 

This paper is organized into sections. The first section is a short 
"reference manual" containing specifications for all the unusual features of 
SCHEME. Next, we present a sequence of programming examples which illustrate 
various programming styles, and how to use them. This will raise certain 
issues of semantics which we will try to clarify with lambda calculus in the 
third section. In the fourth section we will give a general discussion of the 
issues facing an iroplementor of an interpreter for a language based on lambda 
calculus. Finally, we will present a completely annotated interpreter for 
SCHEME, written in MacLISP [Moon], to acquaint programmers with the tricks of 
the trade of implementing non-recursive control structures in a recursive 
language like LISP. 



This report describes research done at the Artificial Intelligence Laboratory 
of the Massachusetts Institute of Technology. Support for the laboratory's 
artificial intelligence research is provided; in part by the Advanced Research 
Projects Agency of the Department of Defense I under Office of Naval Research 
contract N00014-75-C-0643. 
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Section 1: The SCHEME Reference Manual 



SCHEME is essentially a full-funarg LISP. LAMBDA expressions need not 
be QUOTEd, FUNCTIONIed, or "FUNCTIONed when passed as arguments or returned as 
values; they will evaluate to closures of themselves. 

All LISP functions (i.e., EXPRs, SUBRs, and LSUBRs, but not FEXPRs, 
FSUBRs, or MACROS ) are primitive operators in SCHEME, and have the same 
meaning as they have in LISP. Like LAMBDA expressions, primitive operators 
and numbers are self -evaluating (they evaluate to trivial closures of 
themselves). 

There are a number of special primitives known as AINTs which are to 
SCHEME as FSUBRs are to LISP. We will enumerate them here. 

IF 

This is the primitive conditional operator. It takes three arguments. 
If the first evaluates to non-NIIL, it evaluates the second expression, and 
otherwise the third. 

QUOTE 

As in LISP, this quotes the argument form so that it will be passed 
verbatim as data. The abbreviation '"FOO" may be used instead of "(QUOTE 
FOO)". 

DEFINE 

This is analogous to the MacLISP DEFUN primitive (but note that the 
LAMBDA must appear .explicitly! ). It is used for defining a function in the 
"global environment" permanently, as opposed to LABELS (see below), which is 
used for temporary definitions in a local environment. DEFINE takes a name 
and a lambda expression; it closes the lambda expression in the global 
environment and stores the closure in the LISP value cell of the name (which 
is a LISP atom).! 

LABELS 

We haye decided not to use the traditional LABEL primitive in this 
interpreter because it is difficult to define several mutually recursive 
functions uking only LABEL. The solution, which Hewitt [Smith and ^iewitt] 
ailso uses, is to adopt an ALGOLesque block syntax: 

(LABELS <function definition Ii8t> <«xpression>) 

This has th^ effect of evaluating the expression in an environment where all 
the functions are defined as specified by the definitions list. Furthermore, 
the functions are themselves closed in that environment, and not in the outer 
environment; this allows the functions to call themselves and each other 
recursively. For example, consider a function which counts all the atoms In a 
list structure recursively to all levels, but which doesn't count the NILs 
which terminate lists (Tjut NILs in the CAR of some list count). In order to 
perform this we use two mutually recursive functions, one to count the car and 
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one to count the cdr, as follows: 

(DEFINE COUNT 
(LRriBOf) (L> 

(LRBELS ((COUNTCRR 

(LflMBOfl (L) 

(IF (flTOH L) 1 

(+ (COUNTCRR (CAR D) 
(COUNTCOR (COR L)))))) 
(COUNTCOR 

(Lflnaofl (L) 

. (IF (flTOn L) 

(IF (NULL L) e 1) 
U (COUNTCRR (CRR U) 
(COUNTCOR (COR U)))))) 
(COUNTCOR L)))) ;Not«: COUNTCOR ic defined hare. 

ASET 

This is the side effect primitive. It is analogous to the LISP function 
SET. For example, to define a cell [Smith and Hewitt], we may use ASET as 
follows: 

(DEFINE CONS-CELL 

(LRHBOR (CONTENTS) 

(LABELS ((THE-CELL 

(LRHBOR (nSC) 

(IF (EQ nSG 'CONTENTS?) CONTENTS 
(IF'(EQ HSC 'CELL?) 'YES 
(IF (EQ (CRR nSG) '<-) 

(BLOCK (flSET 'CONTENTS (CflOR HSG)) 

THE-CELL) 
(ERROR 'I UNRECOGNIZED HESSRGE - CELL) 

nsc 

'URNC-TYPE-RRG) )))))) 
THE-CELL))) 

Those of you who may complain about the lack of ASETQ are invited to write 
(ASET* foo bar) instead of (ASET 'foo bar). 

EVALUATE 

This \s similar to the LISP function EVAL. It evaluates its argument, 
and then evaluates the resulting s-expression as SCHEME code. 

CATCH 

This is the "escape operator" which gives the user a handle on the 
control structure of the interpreter. The. expression: 

(CATCH <id8ntifiar> <«}<pressior») 
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evaluates <expression> in an environment where <identifier> is bound to a 
continuation which is "just about to return from the CATCH"; that is, if the 
continuation is called as a function of one argument, then control proceeds as 
if the CATCH expression had returned with the supplied (evaluated) argument at 
its value. For example, consider the following obscure definition of SORT 
(Sussman's favorite style/Steele's least favorite): 

(DEFINE SORT 

(LflriBDfl (X EPSILON) 

((LRnBOfl (HNS LOOPTRC) 
(CATCH RETURNTflC 
(PROCN 

(flSET 'LOOPTflC (CATCH fl f1>) jCREATE PROC TAG 
(IF (< (ABS (-$ (*$ ANS ANS) X)) EPSILON) 
(RETURNTAC ANS) ; RETURN 

NIL) ,JFCL 

(ASET 'ANS (//$ {+$ (//$ X ANS) ANS) 2.0)) 
(LOOPTAC LOOPTAC)))) (COTO 

1.8 
NIL))) 

Anyone who doesn't understand how this manages to work probably should not 
attempt to use CATCH. 

As another example, we can define a THROW function, which may then be 
used with CATCH much as they are in LISP: 

(DEFINE THROU (LAMBDA (TAG RESULT) (TAG RESULT))) 

CREATE! PROCESS 

This is the process generator for multiprocessing. It takes one 
argument, an expression to be evaluated in the current environment as a 
separate parallel process. If the expression ever returns a value, the 
process automatically terminates. The value of CREATE ! PROCESS is a process id 
for the newly generated process. Note that the newly created process will not 
actually run until it is explicitly started. 

START! PROCESS 

This takes one argument, a process id, and starts up that process. It 
then runs. 

STOP! PROCESS 

This a.lso takes a process id, but stops the process. The stopped 
process may be continued from where it was stopped by using START! PROCESS 
again on it. The magic global variable *«PROCESS«* always contains the 
process id of the currently running process; thus a process can stop itself by 
doing (STOP! PROCESS «*PROCESS«*). A stopped process is garbage collected if 
no live process has a pointer to its process id. 

EVALUATE ! UNINITERRUPTIBLY 
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This is the synchronization primitive. It evaluates an expression 
uninterruptibly; i.e. no other process may run until the expression has 
returned a value. Note that if a funarg is returned from the scope of an 
EVALUATE! UNINTERRUPTIBLY, then that funarg will be uninterruptible when it is 
applied; that is, the uninterruptibility property; follows the rules of 
variable scoping. For example, consider the following function: 

(DEFINE SEI1CEN 

(LRtiaOA (SEnVRL) 

(LIST (LflMBDfl 

(EVflLURTE ! UN I NTERRUPT IBL Y 

(flSET' SEMVflL (* SEMVflL 1)))) 
(LABELS (P (LRHBDR 

(EVflLURTE ! UN INTERRUPTIBLY 
(IF (PLUSP SEnVRL) 

(RSET' SEHVRL (- SEHVRL D) 
(P))))) 
P)))) 

This returns a pair of functions which are V and P operations on a newly 
created semaphore. The argument to SEMGEN is the initial value for the 
semaphore. Note that P busy-waits by iterating if necessary; because 
EVALUATE! UNINTERRUPTIBLY uses variable-scoping rules, other processes have a 
chance to get in at the beginning of each iteration. This busy-wait can be 
made much more efficient by replacing the expression (P) in the definition of 
P with 

((LRMBOfl (HE) 

(BLOCK (STRRTiPROCESS (CREATE! PROCESS ' (START! PROCESS HE))) 
(STOP!PROCESS HE) 
(P))) 
♦♦PROCESS**) 

Let's see you figure this one out! Note that a STOP! PROCESS within an 
EVALUATE! UNINTERRUPTIBLY forces the process to be swapped out even if it is 
the current one, and so other processes get to run; but as soon as it gets 
swapped in again, others are locked out as before. 

Besides the AINTs, SCHEME has a class of primitives known as AMACROs. 
These are similar to MacLISP MACROs, in that they are expanded into equivalent 
code before being executed. Some AMACROs supplied with the SCHEME 
interpreter!. 

COND 

This is like the MacLISP COND statement, except that singleton clauses 
(where the result of the predicate is the returned value) are not allowed. 

AND, OR 

These are also as in MacLISP. 
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BLOCIC 

This is like the MacLISP PROGNI, but arranges to evaluate its last 
argument without an extra net control frame (explained later), so that the 
last argument may involved in an iteration. Note that in SCHEME, unlike 
MacLISP, the body of a LAMBDA expression is not an implicit PROGN. 

DO 

This is like the MacLISP "new-style" DO; old-style DO is not supported. 

AMAPCAR, AMAPLIST 

These are like MAPCAR and MAPLIST, but they expect a SCHEME lambda 
closure for the first argument. 

To use SCHEME, simply incant at DDT (on HIT-AI): 

:LISP LIBLSP; SCHEME 

which will load up the current version of SCHEME, which will announce itself 
and give a prompt. If you want to escape to LISP, merely hit ^G. To restart 
SCHEME, type (SCHEME). Sometimes one does need to use a LISP FSUBR such as 
UREAD; this may be accomplished by typing, for example, 

(EVflL' (UREflO FOO BAR DSK LOSER)) 

After doing this, typing ^Q will, of course, cause SCHEME to read from the 
file. 

This concludes the SCHEME Reference Manual. 
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Section 2: Some SCHEME Progranuning Examples 



Traditional Recursion 

Here is the good old familiar recursive definition of factorial, wrltttn 
in SCHEME. 

(DEFINE FACT 

(UnBDfl (N) (IF (. N 0) 1 

(* N (FACT (- N 1))))))) 

What About Iteration? 

There are many other ways to compute factorial. One important way is 
through the use of iteration . Consider the following definition of FACT. 
Although it appears to be recursive, since it "calls itself", it captures the 
essence of our intuitive notion of iteration, because execution of this 
program will not produce internal structures (e.g. stacks or variable 
bindings) which increase in size with the number of iteration steps. This 
surprising fact will be explained in two ways. 

(1) We will consider programming styles in terms of substitution semantics of 
the lambda calculus (Section 3). 

(2) We will show how the SCHEME interpreter is implemented (Sections 4,5). 

(DEFINE FACT 
(LRHBOfl (N) 

(LABELS ((FflCTl (LflMBOR (H ANS) 

(IF (> rt 8) ANS 

(FACTl (- n i) 

(» n ANS)})))) 
(FACTl N 1)))) 

A common iterative construct is the DO loop. The most general form we 
have seen in any programming language is the MacLISP DO [Moon]. It permits 
the simultaneous initialization of any number of control variables and the 
simultaneous stepping of these variables by arbitrary functions at each 
iteration step. The loop is terminated by an arbitrary predicate, and an 
arbitrary value may be returned. The DO loop may have a body, a series of 
expressions executed for effect on each iteration. 

The general form of a MacLISP DO is: 

(00 ((<varl> <initl> <stepl>) 
(<var2> <init2> <step2>) 

(<varn> <initn> <stepn>)) 
(<prad> <value>) 
<body>} 
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The semantics of this are that the variables are bound and initialized to the 
values of the <initi> expressions, which must all be evaluated in the 
environment outside the DO; then the predicate <pred> is evaluated in the new 
environment, and if TRUE, the <value> is evaluated and returned. Otherwise 
the body is evaluated, then each of the steppers <stepi> is evaluated in the 
current environment, all the variables made to have the results as their 
values, and the predicate evaluated again, and so on. 
For example, the following MacLISP function: 

(OEFUN REV (L) 

(00 ((LI L (COR LD) 

(ANS NIL (CONS (COR LI) RNS))) 
((NULL LI) flNS))) 

computes the reverse of a list. In SCHEME, we could write the same function, 
in the same iterative style, as follows: 

(OEFINE REV 
(LOnBOfl (L) 
' (LABELS ((OOLOOP (LflnBOR (LI RNS) 

(IF (NULL LI) HNS 
(OOLOOP (COR Li) 

(CONS (CAR LI) ANS)))))) 
(OOLOOP L NIL)))) 

From this we can infer a general way to express iterations in SCHEME in 
a manner isomorphic to the MacLISP DO: 

(LABELS ((OOLOOP " 

(LAHBOA (<duinmy> <varl> <var2> . . . <varr)>) 
(IF <pred> <value> 

(OOLOOP <bod(j> <stepl> <step2> ... <stepn>))))) 
(OOLOOP NIL <initl> <init2> ... <initn>)) 

This is in fact what the supplied DO AMACRO expands into. Mote that there are 
no side effects in the steppings of the iteration variables. 

Another Way To Do Recursion 

Now consider the following alternative definition of FACT. It has an 
extra argument, the continuation [Reynolds], which is a function to call with 
the answer, ^when we have it, rather than return a value; that is, rather than 
ultimately reducing to the desired value, it reduces to a combination which is 
the application of the -continuation to the desired value. 
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(DEFINE FACT 
(LRHBOR (N C) 

(IF (- N 0) (C 1) 
(FACT (- N 1) 

(LflnBOfl (0) (C (« N A))))}}) 

Note that we can call this like an ordinary function if we supply (LAMBDA (X) 
X) as the second argument. For example, (FACT 3 (LAMBDA (X) X)) returns 6. 

Apparently "Hairy" Control Structure 

A classic problem difficult to solve in most programming languages, 
including standard (stack-oriented) LISP, is the samefringe problem [Smith and 
Hewitt]. The problem is to determine whether the fringes of two trees are the 
same, even if the internal structures of the trees are not. This problem is 
easy to solve if one merely computes the fringe of each tree separately as a 
list, and then compares the two lists. We would like to solve the problem so 
that the fringes are generated and compared incrementally. This is Important 
if the fringes of the trees are very large, but differ, say, in the first 
position. 

Consider the following obscure solution to samefringe . which is in fact 
isomorphic to the one written by Shrobe and presented by Smith and Hewitt. 
Note that SCHEME does not have the packagers of PLASMA, and so we were forced 
to use continuations; rather than using packages and a next operator, we pass 
a fringe a continuation (called the "getter") which will get the next and the 
rest of the fringe as its two arguments. 

(DEFINE FRINGE • 
(LflnBDfl (TREE) 

(LABELS ((FRINGEN 

(LAriBDfl (NODE RLT) 
(LAMBDA (GETTER) 
(IF (ATOM NODE) 

(GETTER NODE ALT) 
((FRINGEN (CAR NODE) 

(LAMBDA (CETTERl) 

((FRINGEN (CDR NODE) 

ALT) 
CETTERl))) 
GETTER)))))) 
(FRINGEN TREE 

(LAMBDA (GETTER) 
i " (GETTER '(EXHAUSTED) NIL)))))) 
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(DEFINE SflMEFRINGE 

(LflnBDR (TREEl TREE2) 
(LRBELS ((SfltlE 

(LRHBOR (SI S2) 

(Si (LRnBOfl (XI Rl) 

(S2 (LRtlBOfl (X2 R2) 

(IF (EQURL XI X2) 

(IF (EQURL XI MEXHRUSTEO)) 
T 

(SRHE Rl R2)} 
NIL)))))})) 
(SRUE (FRINGE TREEl) 

(FRINGE TREE2))))) 

Now let US consider an alternative solution to the samefringe problem. 
We believe that this solution is clearer for two reasons: 

(1) the implementation of SAMEFRINGE is more clearly iterative; 

(2) rather than returning an object which will return both the first and the 
rest of a fringe to a given continuation, FRINGE returns an object which will 
deliver up a component in response to a request for that component. 

(DEFINE FRINGE 
(LRnBDR (TREE) 

(LRBELS ((FRINGEl 

(LRHBOR (NODE RLT) 
(IF (RTOn NODE) 
(LRfl^DR (fISG) 

(IF (EQ use 'FIRST) NODE 

(IF (EQ nSG 'NEXT) (RLT) (ERROR)))) 
(FRINGEl (CRR NODE) 

(LflriBOR (FRINGEl (CDR NODE) RLT))))))) 
(FRINGEl TREE 

(LRtlBOR 

(LRflBOR (HSG) (IF (EQ HSG 'FIRST) '*EOF* (ERROR) ))))))) 

(DEFINE SRHEFRINGE 
(LflriBOfl (Tl T2) 

(DO ((CI (FRINGE Tl) (CI 'NEXT)) 

(C2 (FRINGE T2) (C2 'NEXT))) 
((OR (NOT (EQ (CI 'FIRST) (C2 'FIRST))) 

(EQ (CI 'FIRST) •«EOF») 

(EQ (C2 'FIRST) '«EOF»)) 

(EQ (CI 'FIRST) (C2 'FIRST) )))h 

A much simpler and more probable problem is that of building a pattern 
matcher with backtracking for segment matches. The matcher presented below is 
intended for matching single-level list structure patterns against lists of 
atoms. A pattern is a list containing three types of elements: 
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(1) constant atoms, which match themselves only. 

(2) (THV x), which matches any single element in the expression consistantly. 
We may abbreviate this as ?x by means of a LISP reader macro character. 

(3) (THV* x), which matches any segment of zero or more elements in the 
expression consistently. We may abbreviate this as !x. 

The matcher returns either NIL, meaning no match is possible, or a list of two 
items, an alist specifying the bindings of th6 match variables, and a 
continuation to call, if you don't like this particular set of bindings, which 
will attempt to find another match. Thus, for example, the invocation 

(HflTCH '{ft !B ?C ?C !B !E) 

'(RXYQQXY2ZXYQQXYR)) 

would return the result 

(((E (Z 2 X Y Q Q X Y R)) 
(C Q) 
(B X Y)) 
<continuationl>) 

where calling <continuationl> as a function of no arguments would produce the 
result 

(((E (R)) 
(C Z) 

(B (X Y Q Q X Y))) 
<cont inuat ion2>) 

where calling <continuation2> would produce NIL. 

The MATCH function makes use of two auxiliary functions called NFIRST 
and NREST. The former returns a list of the first n elements, of a given list, 
while the latter returns the tail of the given list after the first n 
elements. 

(PEFINE NPIRST , , 

(LftnBOft (EN) 

(IF (- N 0) NIL 

(CONS (CRR E) (NFIRST (COR E) (- N 1)))))) 

(DEFINE NREST 
(UHBDR (E N) 

(IF (- N 0) E 

(NRESJ (COR E) (- N 1))))) 

The main MATCH function also uses a subfunction called MATCHl which 
takes four arguments: the tail of the pattern yet to be matched; the tail of 
the expression yet to be matched; the alist of match bindings made so far; and 
a continuation to call if the match fails at this point. A subfunction of 
MATCH, called MATCH*, handles the matching of segments of the expression 
against THV* match variables. It is in the matching of segments that the 
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potential need for backtracking enters, for segments of various lengths may 
have to be tried. After MATCH* matches a segment, it calls MATCHl to continue 
the match, giving it a failure continuation which will back up and try to 
match a longer segment if possible. A failure can occur if a constant fails 
to match, or if one or the other of pattern and expression runs out before the 
other one does. 
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(DEFINE nflTCH 

(LflriBOfl (PATTERN EXPRESSION) 
(LABELS ((HRTCHl 

(LflHBOfl (P E flLIST LOSE) 

(IF (NULL P) (IF (NULL E) (LIST flLIST LOSE) (LOSE)) 
(IF (flTOn (CAR P)) 

(IF (NULL E) (LOSE) 

(IF (EQ (CAR E) (CAR P)) 

(MATCHl (COR P) (COR E) ALIST LOSE) 
(LOSE))) 
(IF (EQ (CAAR P) "THV) 
(IF (NULL E) (LOSE) 
((LAtlBOA (V) 

(IF V (IF (EQ (CAR E) (CAOR V)) 

(HATCHl (COR P) (COR E) flLIST LOSE) 
(LOSE) ) 
(HATCHl (COR P) (COR E) 

(CONS (LIST (CAOAR P) (CAR E)) ALIST) 
LOSE))) 
(ASSQ (CAOAR P) ALIST))) 
(IF (EQ (CAAR P) 'THV«) 
((LAnSOfl (V) 
(IF V 

(IF (< (LENGTH E) (LENGTH (CflOR V))) (LOSE) 
(IF (EQUAL (NFIRST E (LENGTH (CflOR V))) 
(CAOR V)) 
(HATCHl (COR P) 

(NREST E (LENGTH (CAOR V))) 
ALIST 
LOSE) 
(LOSE))) 
(LABELS ((nRTCH« 
(LAHBOA (N) 

(IF (> N (LENGTH E)) (LOSE) 

(ttATCHl (COR P) (NREST E N) 

(CONS (LIST (CAOAR P) 

(NFIRST E N)) 
ALIST) 
(LAHBOA 

(HATCH* U H 1)))))))) 
(HATCH* 0)))) 
(ASSQ (CAOAR P) ALIST)) 
(LOSE)))))))) 
(HATCHl PATTERN 

EXPRESSION 

NIL 

(LAHBOA NIL))))) 



Sussman and Sleele December 29. 197S 13 



SCHEHE Programming ExarnpUs 



A Useless Multiprocessing Example 

One thing we might want to use multiprocessing for is to try two things 
in parallel, and terminate as soon as one succeeds. We can do this with the 
following function. 

(DEFINE TRY !TUO! THINGS! IN IPflRflLLEL 
(LRnBOfl (Fl F2) 
(CATCH C 

((LOriBDR (Pi P2> 
((LRnBDfl (Fi F2) 

(EVALUATE lUNlNTERRUPTIBLY 
(BLOCK (ASET 'PI (CREATE! PROCESS MFD)) 
(ASET •P2 (CREATE I PROCESS '(Fa))) 
(START! PROCESS PI) 
(STARTIPROCESS P2) 
(STOP 'PROCESS **PROCESS**) ) ) ) 
(LAriBOA 

((LAneOA (VALUE) 

(EVALUATE lUNINTERRUPTIBLY 
(BLOCK (STOPIPROCESS P2) (C VALUE)))) 
(Fl))) 
(LAMBDA 

((LAHBDA (VALUE) 

(EVALUATE iUNINTERRUPTIBLY 
(BLOCK (STOPIPROCESS PI) (C VALUE)))) 
(F2))))) 
NIL NJL)))) 

TRY! TWO! THINGS! IM! PARALLEL takes two functions of no arguments (in order to 
pass an unevaluated expression and its environment in for later use, so as to 
avoid variable conflicts). It creates two processes to run them, and returns 
the value of whichever completes first. 

As an example of how to misuse TRY! TWO! THINGS! INI! PARALLEL, here is a 
cnnAi^^°" ^*^^^^ determines the sign of an integer using only ADDl, SUBl, and 

(DEFINE SIGN 
(LAHBDA (N) 

(IF (EQUAL N 0) 'ZERO 

(TRY! TWO! THINGS! IN IPARALLEL 
(LAHBOA () 

(00 ((I 8 (AOOl I))) 

((EQUAL I N) 'POSITIVE))) 
(LAKBOA 

(00 ((I (SUBl I))) 

((EQUAL I N) 'NEGATIVE))))))) 
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Section 3: Substitution Semantics and Programming Styles 



In the previous section we showed several different SCHEME programs for 
computing the factorial function. How are they different? We intuitively 
distinguish recursive from iterative programs, for example, by noting that 
recursive programs "call themselves" but in the last section we claimed to do 
iteration with a seemingly recursive program. Experienced programmers "know" 
that recursion uses up "stack" so a program implemented recursively will run 
out of stack on a sufficiently large problem. Can we make these ideas more 
precise? One traditional approach is to model the computation with lambda 
calculus. 



Reviewing the Lambda Calculus 

Traditionally language constructs are broken up into two distinct 
classes: imperative constructs and those with side-effects -- such as 
assignment and go-to; and applicative constucts — those executed for value — 
such as arithmetic expressions. In addition, compiled languages often requirt 
a third class, declarative constructs, but these are provided primarily to 
guide the compilation process and do not directly affect the semantics of 
execution, and so will not concern us here. 

Lambda calculus is a model for the applicative component of programming 
languages. It models all non-imperative constructs as applications of 
functions and specifies the semantics of such expressions by a set of axioms 
or rewrite rules. One axiom* states that a combination, i.e. an expression 
formed by a function applied to some arguments, is equivalent to the body of 
that function with the appropriate arguments substituted for the free 
occurrences of the formal parameters of the function in its body: 

((LflflBDfl <vars> <body>) <args>> « Subst[<apgs> <vars> <body>J 

■ . ■ '■ ^ 

Another axiom requires that the meaning of an expression be independent of the 
names of the forn^al parameters bound in the expression: 

(LfiHBDfl <vars> <body>) 

■ (LflflBDfl <n«wvars> Subst t<newvars> <vars> <body>l) 
providad that nona of <neHvars> appttars fraa in <body>. 

These constraints force Subst to be defined in such a way that an important 
^^"^ of referential transparency is obtained. Besides these "structural" 
axioms, others are provided which specify the result of certain primitive 
functions applied to specific arguments. We shall not be concerned with these 
problems here --we will assume a small reasonable set of primitive functions. 
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Recursive programs 

Now, let's see how lambda calculus may be used (informally) to model a 
computation. Consider the standard definition of the factorial function: 

(DEFINE FACT 

(LOnBOn (N) (IF (-NO) 1 

(* N (FACT (- N 1))))))) 

We are being very informal -- lambda calculus as presented by [Church] does 
not include such constucts as DEFINE, IF, or =, «, or even 1! The "usual" 
lambda calculus construct for defining recursive functions is a rather obscure 
object called the "fixed-point" operator. We have been lax to avoid the 
hassle of "rigor mortis" in this tutorial paper. Similarly, IF is the SCHEME 
conditional construct we will use for convenience, it reduces to its second or 
third argument depending on whether the first reduces to TRUE or FALSE. The 
objects *, a, 0, 1, etc. may be thought of as abbreviations for complex lambda 
expressions (such as Church numerals) whose details we are not interested in. 
On the other hand, we may think of them as primitive expressions, defined by 
additional axioms; this viewpoint leads to practical interpreter 
implementations . 

Nc)w let's reduce the expression (FACT 3). We will perform the 
expression reductions, except for the IF primitive, in Applicative Order (call 
by value), though this is not necessary, as we will discuss later. We display 
a "trace" of the substitutions: 

«> (FACT 3) 

■> (IF (. 3 a) 1 {*"3 (FACT (- s'l)))) 

»> (« 3 (FACT (-31))) 

-> (» 3 (FACT 2)) 

•> (* 3 (IF (• 2 0) 1 (« 2 (FACT (- 2 1))))) 

■> (« 3 (« 2 (FACT (•2 1)))) 

■> (« 3 (« 2 (FACT 1))) 

-> (« 3 (* 2 (IF (- 1 0) 1 (ft 1 (FACT (- 1 1)))))) 

■> (* 3 (* 2 (* 1 (FACT (- 1 1))))) 

■> (♦ 3 (» 2 (ft 1 (FACT 0)))) 

-> (* 3 (ft 2 (ft 1 (IF (- fl 0) 1 (ft 8 (FACT (-0 1))))))) 

-> (ft 3 (ft 2 (ft 1 1))) 

«> (ft 3 (ft 2 D) 

-> (ft 3 2) 

» 6 

You will note that we have calculated (fact 3) by a process wherein each 
expression is replaced by an expression which is provably equivalent to it via 
an axiom or which is produced by application of a primitive function. 
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Now, What About Iteration? 

Consider the "iterative" definition of FACT. Although it appears to be 
recursive, since it "calls itself", we will see that it captures the essence 
of our intuitive notion of iteration. 

(DEFINE FACT 
CLflnBDn (N) 

(LABELS ((FRCTl 

(LRnBOfl (n flNS) 

(IF (- n 0) ANS 

(FRCTl (- n 1) (« n ANS)))))) 
(FflCTl N 1)))) 

Let us now compute (fact 3). 



«> 


(FACT 3) 




■> 


(FACTl 3 1) 




■> 


(IF (s 3 0) 1 






(FACTl (- 3 1) (* 3 


1))) 


«> 


(FACTl (- 3 1) (#3 1)) 




•> 


(FACTl 2 (« 3 D) 




■ > 


(FACTl 2 3) 




■> 


(IF (s 2 0) 3 






(FACTl (- 2 1) (* 2 


3))) 


■> 


(FACTl (- 2 1) (* 2 3)) 




■> 


(FACTl 1 (« 2 3)) 




■> 


(FACTl 1 8) 




■ > 


(IF (« 1 0) 6 






(FACTl (- 11) (9 1 


6)}) 


a> 


(FACTl (- 1 1) (« 1 6)) 




» 


(FACTl 8 (» 1 6)) 




• > 


(FACTl 8 6) 




a> 


(IF (■ 8 8) 6 






(FACTl (- 8 1) (« 8 


6))) 


■ > 


6 





Notice that the expressions involved have a fixed maximum size independent of 
the argument to FACT! In fact, as Marvin Minsky pointed out, successive 
reductions produce a cycle of expressions which are identical except for the 
numerical quantities involved. Looking back, we may note by way of comparison 
that the recursive version caused creation of expressions proportional in size 
to the argument. This is why we think that this version of FACT is iterative 
rather than recursive. At each stage of the iterative version the "state" of 
the computation is summarized in two variables, the counter and the answer 
accumulator, while at each stage of the recursive version the "state" contains 
a chain of pieces each of which contains a component of the state. In the 
recursive version of FACT, for example, the state contains the sequence of 
multiplications to be performed upon return from the bottom. It is true that 
the iterative factorial also can produce expressions of arbitrary size, since 
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the number of bits needed to express factorial of n grows with n; but this is 
a property of the numbers calculated by the function which is implemented in 
iterative style, and not of the iterative control structure itself. A 
recursive control structure inherently creates expressions of unbounded size 
as a function of the recursion depth, while an iterative control structure 
produces a cycle of equivalent expressions, and so the expressions are of 
approximately the same size no matter how many iteration steps are taken. 
This is the essence of the difference between the notions of iteration and 
recursion. Hewitt [MAC, p. 234] made a similar observation in passing, 
expressing the difference in terms of storage used in program execution rather 
than in terms of intermediate expressions produced by substitution semantics. 

Continuation Passing Recursion 

Remember the other way to compute factorials? 

(DEFINE FACT 
(LflnBOR (N C) 

(IF (- N 0) (C 1) 
(FACT (- N 1) 

(LflnBOfl (fl) (C (* N fl))))))) 

This looks iterative on the surface! but in fact it is recursive. Let's 
compute (FACT 3 ANSWER), where ANSWER is a continuation which is to receive 
the result of FACT applied to 3; that is. the last thing FACT should do is 
apply the continuation ANSWER to its result. 



a> 


(FACT 3 ANSWER) , 


■ > 


(IF (.3 0) (ANSWER 1) 




(FACT (- 3 1) (I.AI1BPA (A) (ANSWER (« 3 A)))) 


a> 


(FACT (-3 1) (LAMBDA (A) (ANSWER (» 3 A)))) 


■> 


(FACT 2 (LAHBDR (A) (ANSWER (« 3 A)))) 


«> 


(IF U 2 0) ((LAHBDA (A) (ANSWER (» 3 A))) 1) 




(FACT (- 2 1) 


' 


(LRnBOA (A) 

1 ' 




((LAHBDA (A) (ANSWER (* 3 A))) 




(«2A))})) 


■ > 


(FACT (- 2 1) 




(LAHBOA (A) 




((LAHBOA (A) (ANSWER (« 3 A))) 




(« 2 A)))} 


■> 


(FACT i^ 




(LAMBDA (A) 




((LAMBDA (A) (ANSWER (« 3 A))) 




(» 2 A)})) 
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■> (IF {- 1 0) 

((innBOfl (A) 

((LflnBOfl (fl) (RNSUER (a 3 R))) 
(* 2 A))) 
1> 
(FACT (- 1 1) 

(LRHBOfl (A> 

((LRnBOR (fl) 

((LRHBOfl (fl> 

(ANSUER (« 3 A))) 
U 2 A))) 
(« 1 A))))) 
-> (FACT (- 1 1) 

(LAHBOA (A) 

((LAMBDA (A) 

((LAMBDA (A) 

(ANSUER (a 3 A))> 
(« 2 A))) 
(a 1 A)})) 
» (FACT e 

(LAMBDA (A) 

((LAMBDA (A) 

((LAMBDA (A) 

(ANSUER (« 3 A))} 
(« 2 A))) 
(« 1 A)))) 
•> (IF (> a 8) 

((LAMBDA (A) 

((LAMBDA (A) 

((LAMBDA (A) 

(ANSUER (a 3 A))) 
(« 2 A))) 
(a 1 A))) 
1) 
(FACT (- 8 1) 

(LAMBDA (A) 

((LAMBDA (A) 

((LAMBDA (A) 

((LAMBDA (A) 

(ANSUER (a 3 A))) 
(a 2 A))} 
(a 1 A))) 
(a 8 A)})}) 
» ((LAMBDA (A) 

((LAMBDA (A) 

((LAMBDA (A) 

(ANSUER (a 3 A))) 
(a 2 A))) 
(a 1 A))) 
1) 
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» ((LRtlBOfl (A) 

((LflnBOfl (fl) 

(flNSUER (« 3 ft)}) 
(« 2 fl))) 
(« 1 D) 

» ((LflriBon (fl) 

((LOnBOR (0) 

(flNSUER (« 3 fl)}) 
(* 2 fl})} 
1> 
-> ((LflnBOR (R) 

(flNSUER (« 3 fl))) 
(* 2 D) 
» ((LflnBOfl (fl) 

(flNSUER (« 3 fl)}} 
2} 
-> (flNSUER (« 3 2}} 

» (flNSUER 6) Whew! 



Note that we have computed factorial of 3 (and are about to give this 
result to the continuation), but in the process no combination with FACT in 
the first position has ever been reduced except as the outermost expression. 
If we think of the computation in terms of evaluation rather than 
substitution, this means that we never returned a value from any application 
of the function FACT! It is always possible, if we are willing to specify 
explicitly what to do with the answer, to perform any calculation in this way: 
rather than reducing to its value, it reduces to an application of a 
continuation to its value (cf. [Fischer]). That is, in this continuation- 
passing programming style, a' function always "returns" its result by "sending" 
it to another function . This is the key idea. ~""^ 

We also note that by our previous observation, this program is 
essentially recursive in that the expressions produced as intermediate results 
of the substitution semantics grow to a size proportional to the depth. In 
fact, the same information is being stored in the nested continuations 
produced by this program as in the nested products produced by the traditional 
recursion -- what to do with the result. 

One might object that this FACT is not the same kind of object as the 
previous definition, since we can't use it as a function in the same manner. 
Note, however, that if we supply the continuation (LAMBDA (X) X), the 
resulting combination (FACT 3 (LAMBDA (X) X)) will reduce to 6, Just as with 
traditional recursion. 

One might also object that we are using function values -- the 
primitives \, -, and * are functions which return values, for example. But 
this is just a property of the primitives; consider a new set of primitives 
»s, --, and ** which accept continuations (indeed, let ss take two 
continuations: if the predicate is TRUE call the first, otherwise call the 
second). We can then define fact as follows: 
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(DEFINE FACT 
(LRnBDR (N C) 
(» N 

(LflllBDA (CD) 
(LflnBOR 
(— N 1 

(LRHBDR (M) 

(FACT n (LRnBDR (R) (*» R N O) ))))))) 



We can see here that no functional application returns a value in a 
computation of factorial in this situation. We btlieve that functional uia0t, 
where applicable (pun intended), is more perspicuous than continuation- 
passing. We shall therefore use functional primitives such as « rather than 
*« wherever possible, keeping in mind that we could use «« instead if we 
wished. 
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Section 4: Some Implementation Issues 



The key probleip is efficiency . Although it is easy to build an 
inefficient interpreter which straightforwardly performs expression 
substitutions; such an interpreter performs much unnecessary copying of 
intermediate expressions. The standard solution to this problem is to use an 
auxiliary structure, i called the environment , which represents a setjof virtual 
substitutions . Thus, when evaluating an expression of the form 

((LflHBDfl <vars> <body>) <args>) in environment E 

instead of reducing it by performing 

Subst[<ar9s> <vars> <bodij>] 

we reduce it to 

<body> in environment E'BPaiplig[<vart> <args>« El 

where pairlis creates a new environment E' in which the <vars> are logically 
paired with (i.e. "bound to") the corresponding <args>« (the precise meaning 
of <args>« will be explained presently), and in which any variables not in 
<vars> are bound as they were in E. 

When using environments, it is necessary to keep them straight. For 
example, the following expression should manage to evaluate to 7: 

(((LflnBDfl (X) (LflriBOfl (Y) (♦ X Y))) 3) 4) . 

A substitution interpreter would cause the free occurrence of x in the inner 
lambda expression tOj be replaced by 3 before applying that lambda expression 
to 4. An interpreter which uses environments must arrange for the expression 
(+ x y) to be evaluated. in an environment such that x is bound to 3 and y is 
b^und to 4. This implies that when the inner lambda expression is applied to 
4, there must be associated with it an environment in which x is bound to 3. 
In order to solve this problem we introduce the notion of a closure [McCarthy] 
[Moses] which is a data structure containing a lambda expression, and an 
environment to be used when that lambda expression is applied to arguments. 
We will notpite a closure using the beta construct (our own notation, but 
isomorphic to the LISP funarg construct) as follows: 

(BETA (LflHBDfl <vars> <body>> <environffient>) 

When a lambda expression is to be evaluated, because it was passed as an 
argument, it evaluates to a closure of that lambda expression in the 
environment it is evaluated in (i.e., the environment it was passed from): 

(LflnBDfl <vars> <body>) in environment e 
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evaluates to 

(BETR (LfittBOfl <vars> <body>) E) in environment e 
Vfhen a closure is to be applied to some arguments: 

((BETA (LflHBOfl <vdrs> <body>) El) <arg«>) in environment E2 
this is performed by reducing the application expression to 

<body> in environment Pairlist<vaps> <apgs in E2> Ell 

That is, any free variables in the closed lambda expression refer to the 
environment as of the time of closure (El), not as of the time of application 
(E2), whereas the arguments are evaluated in the application environment as 
expected. 

This notion of closure has gone by many other names in other contexts. 
In LISP, for example, such a closure has been traditionally known as a funarg . 
ALGOL has several related ideas. Every ALGOL procedure is, at the time of it« 
invocation, essentially a "downward funarg". In addition, expressions which 
are passed by name instead of by value are closed through the use of 
mechanisms called thunks [Ingerman]. It turns out that an actor (other than a 
cell or a serializer) is also a closure. Hewitt [Smith and Hewitt] describes 
an actor as consisting of a script , which is code to be executed, and a set of 
acquaintances , which are other actors which it knows about. We contend that 
the script is in fact identical to the lambda expression in a closure, and 
that the set of acquaintances is in effect an environment. As an example, 
consider the following code for cons taken from [Smith and Hewitt] (cf . 
[Fischer]): 

[CONS s 

(e> CsR -6] 
(CASES 

(■> FIRST? 

fl) 
(■> REST? 

B> 
(i> LIST? 
YES)))] 

When the form (cons x y) is evaluated, the result is an (evaluated) cases 
statement, which is a receiver ready to accept a message such as "first?" or 
"rest?". Tl^is resulting receiver evidently knows about the actors x and y as 
being bound to the variables a and b; it is evidently a closure of the cases 
script plus a set of acquaintances which includes x and y (as well as "first?" 
and "rest?" and "yes", for example; PLASMA considers such "constant! 
acquaintances" to be part of the set, whereas in SCHEME we might prefer to 
Consider them part ot the script). Once we realize that it is a closure and 
nothing more, we can see easily how to express the same semantics in SCHEME: 
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(DEFINE CONS 
(LAHBOfl (fl B) 
(LRHBDR (H) 

(IF (EQ n 'FIRST?) fl 
(IF (EQ n 'REST?) B 
YdF (EQ n 'LIST?) 'YES 

(ERROR 'I UNRECOGNIZED tIESSRCE - CONS] 

n 

'WRNG-TYPE-RRO )))))) 



Note that we have used explicit e£ tests on the incoming message rather than 
the implicit pattern-matching of the cases statement, but the underlying 
semantics of the approach are the same. 

There are several important consequences of closing every lambda 
expression in the environment from which it is passed (i.e., in its "lexical" 
or "static" environment). First, the axioms of lambda calculus are 
automatically preserved. Thus, referential transparency is enforced. This in 
turn implies that there are no "fluid" variable bindings (as there are in 
standard stack implementations of LISP such as MacLISP). Second, the upward 
funarg problem [Moses] requires that the environment structure be potentially 
tree-like. Finally, the environment at any point in a computation can never 
be deeper than the lexical depth of the expression being evaluated at that 
time; i.e., the environment contains bindings only for variables bound in 
lambdas lexically surrounding the expression being evaluated. This is true 
even if recursive functions are involved . It follows that if list structures 
are used to implement environments, the time to look up a variable is 
proportional only to the lexical distance from the reference to the binding 
and not to the depth of recursion or any other dynamic parameter. Therefore 
it is not necessarily as expensive as many people have been led to believe. 
Furthermore, it is not even necessary to scan the environment for the 
variable, since its value must be in a known position relative to the top of 
the environment structure; this position can be computed by a compiler at 
compile time on the basis of lexical scope. The tree-like structure of an 
environment prevents one from merely indexing into the it, however; it is 
necessary to cdr down it. (Some ALGOL compilers use a similar technique 
involving base registers pointing to sets of variables for each level of block 
nesting; it is necessary to determine the base pointer for the block desired 
for a variable reference, but then the variable is at a known offset from the 
base address.) It also follows that an iterative programming style will lead 
to no net accumulation of environment structures in the interpreter! The 
recursive style, with or without continuation-passing, will lead to 
accumulation of environment structures as a function of the recursion depth, 
not because ^any environment becomes arbitrarily deep, but rather because at 
each level pf recursion it is necessary to save the environment at that point. 
It is saved by the interpreter in the case of traditional recursion, so that 
computation can pontinue in the correct environmenf on return from the 
recursive call; it is saved as part of the continuation closure in! 
continuation-passing. ; 

Another problem is concerned with control. This is a consequence of the 
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functional interpretation of the lambda calculus, i.e. the view that a 
"expression" (combination) represents a value to bd "returned" (to replace the 
combination) to its "caller" (the process evaluating the combination 
containing the original one). The interpreter must provide for correctly 
resuming the caller when the callee has returned itfs value. The state of the 
computation at the time of the call must therefore be preserved. We see» 
then, that part of the state of the computation muit be (a pointer to) the 
preserved state of its caller; we will call this component of the state the 
clink [McDermott and Sussman] [Bobrow and Wegbreitj. Just before the 
evaluation of a subexpression, the state of the current computation, including 
the clink , must be gathered together into a single data structure, which we 
will call a frame ; the clink is then altered to point to this new frame. The 
evaluation of the subexpression then returns by restoring the state of the 
process from the current clink . Note that the value of the subexpression had 
better not be part of the state, for otherwise it would be lost by the state 
restoration. Thus, we only build a new frame if further computation would 
result in losing information which might be necessary. This only occurs if we 
must somehow return to that state. This in turn can only occur if we must 
evaluate an expression whose value must be obtained in order to continue 
computation in the current state. 

This implies that no frame need be created in order to apply a lambda 
expression to its arguments. This in turn implies that the iterative and 
continuation-passing styles lead to no net creation of frames , because they 
are implemented only in terms of explicit lambda applications, whereas the 
recursive style leads to the creation of one net frame per level of recursive 
depth, because the recursive invocation involves the evaluation of a 
expression containing the recursive lambda application as a subexpression. 

A clink in a. lambda calculus-based interpreter is in fact equivalent to 
a low-level default continuation as created by the, PLASMA interpreter. Such a 
continuation is a (closed) lambda expression of one argument whose script will 
carry on the computatioh after receiving the value of the subexpression. The 
clink mechanism is therefore not necessary, if we are willing to transform all 
our programs into pure continuation-passing styles. We could do this 
explicitly, by requiring the user to write his programs in this form; or 
implicitly, as PLASMA does, by creating these one-argument continuations as 
necessary, passing them as hidden extra arguments to lambda expressions which 
behave like functions. On the other hand, we may think of a clink as a highly 
optimized continuation, whose "script" is that carefully coded portion of the 
lambda calculus interpreter which restores the frame and then carries on. We 
find this notion useful in defining a primitive, CATCH (named for the CATCH 
construct in MacLISP [Moon]), for "hairy control structure", similar to 
Reynolds' E$CAPE operator [Reynolds], which makes these low-level 
continuatioits available to the user. Note that PLASMA has a similar facility 
for getting hold of the low-level continuations, namely the "«>" receiver 
construct. : 

Another problem for the implementor of an interpreter of a lambda 
calculus based language is the order in which to perform reductions f There 
are tv^o standard orders of evaluation (and several other semi-standard ones, 
which we will not consider here). The first is Normal Order, which 



Sussman and St<«le D«c8inber 22, 197S 25 Sow Irnpl<wntat ion Iiiu«i 



corresponds roughly to ALGOL'S "call by name", and the second is Applicativ 
Order , which corresponds roughly to ALGOL'S "call by value" or to LISP 
functional application. 

Under a call-by-name implementation, the <args>« mentioned above are in 
fact the actual argument expressions, each paired with the environment E. The 
evaluator has two additional rules: 

(1) when a variable x is to be evaluated in environment El, then its 
associated expression-environment pair [A, £2] (which is equivalent to an ALGOL 
thunlc) is looked up in El, and then A is evaluated in E2. 

(2) when a "primitive operator" is to be applied, its arguments must be 
evaluated at that time, and then the operator applied in a call-by-value 
manner. 

Under a call-by-value implementation, the <args>* are the values of the 
argument expressions; i.e., the argument expressions are evaluated in 
environment E, and only then is the lambda expression applied. Note that this 
leads to trouble in defining conditionals. Under call-by-name one may define 
predicates to return (LAMBDA (X Y) X) for TRUE and (LAMBDA (X Y) Y) for FALSE, 
and then one may simply write 

((- fl B) <do this if TRUE> <do this if FRLSE>) 

This trick depends implicitly on the order of evaluation. It will not work 
under call-by-value, nor in general under any other reductive order except 
Normal Order. It is therefore necessary to introduce a special primitive 
operator (such as "if") which is applied in a call-by-name manner. This leads 
us to the interesting conclusion that a practical lambda calculus interpreter 
cannot be purely call-by-name or call-by-value; it is necessary to have at 
least a little of each. 

There is a fundamental* problem, however, with using Normal Order 
evalupttion in a lambda balculus interpreter, which is brought out by the 
iterative programming style. We already know that no net frames are created 
by iterative programs, and that no net environment structures are created 
either. The problem is that under a call-by-name implementation there may be 
* "®^ ^^"nk structure created proportional in size to the number of iteration 
steps.. This problem is inherent in Normal Order, because Normal Order 
substitution semantics exhibit the same phenomenon of increasing expression 
size. Therefore iteration cannot be effectively modeled in a call-by-name 
interpreter. An alternative iview is that a call-by-name interpreter remembers 
more than is logically necessary to perform the computations indicated by the 
original expressions. This is indicated by the fact that the Applicative 
Order substitution semantics lead to expressions of fixed maximum size 
independent of the number of iteration steps. 

It tucns out that this conflict between call-by-name and iteration is 
resolved by the use of continuation-passing. If we use a pure continuation- 
passing programming style, then Normal Order and Applicative Order are the 
same order! In pure continuation-passing no combination is ever a 
subcombination of another combination. (This is the justification for the 
fact mentioned above that no clinks are needed if pure continuation-passing 
style is used.) Thus, if we wish to model iteration in pure lambda calculus 
without even an if primitive, we can use Normal Order substitutions and 
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express the iteration in the continuation-passing style. 

Under an;^ reductive order, whether Normal Order, Applicative Order, or 
any other order, it is in practice convenient to introduce a means of 
terminating the evaluation process on a given form; in order to do this we 
introduce three different and equally useful notions. The first is the 
primitive operator such as +; the evaluator can apply such an operator 
directly, without substituting a lambda expression for the operator and 
reducing the resulting form. The second is the ^elf-evaluating constant ; this 
is used for primitive objects such as numbers, which effectively behave as if 
always "bound to themselves" in any environment. The third is the quoting 
function , which protects its argument from reductions so that it is returned 
as is; this is used for treating forms as data in the usual LISP manner. 

These three ideas are not logically necessary, since the evaluation 
process will (eventually) terminate when no reductions can be made, but they 
are a great convenience for introducing various functions and data into the 
lambda calculus. Note too that some are easily defined in terms of the 
others; for example, instead of letting 3 be a self-evaluating constant, we 
could let 3 be a primitive operator of no arguments which returned 3, or we 
could merely quote it; similarly, instead of quoting forms we could let forms 
be a self-evaluating data type, as in MDL [Galley and Pfister] (better known 
as MUDDLE), written with different parentheses. Because, as we have said, 
these constructs are all strictly for convenience, we will not strive for any 
kind of minimality, but will continue to use all three notions in .our 
interpreter, as we already have in our examples. We provide an interface so 
that all MacLISP subrs may be used as primitive operators; we define numbers 
to be self -evaluating; and we will use QUOTE to quote forms as in LISP (and 
thus we may use the "'" character as an abbreviation). 

One final issue which "the implementor of a lambda calculus based 
interpreter should consider is that of extensions to the language, such as 
primitives for side effects, multiprocessing, and synchronization of 
processes. Note that these are ideas which are very hard, if not impossible, 
to model using the substitution semantics of the lambda calculus, but which 
are easily incorporated in other semantic models, including the environment 
interpreter and, perhaps more notably, the ACTORS model [Greif and Hewitt]. 
The fundamental problem with modelling such concepts using substitution 
seijjantics is that substitution produces copies of expressions, and so cannot 
model the nption of sharing very well. In an interpreter which uses 
ehyironments, all instances of a variable scoped in a given environment refer 
to the same virtual substitution contained in that environment, and so may be 
thought of as sharing a value cell in that environment. We can take advantage 
of this sharing by introducing a primitive operator which modifies the 
contents of^a value cell; since all occurrences refer to the same value cell, 
changing the contents of that value cell will change the result of future 
references to that value cell (i.e., occurrences of the variable which invoke 
th^ virtual substitution mechanism). Such a primitive operator would then be 
siipil^r to the SET function of LISP, or the :« of ALGOL. We include such an 
operator, ASET, in our interpreter. 

Introducing multiprocessing into the interpreter is fairly 
straightforward; all that is necessary is to introduce a mechanism for time- 
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Slicing the interpreter among several processes. One can even model this in 
substitution semantics by supposing that there can be more than one 
expression, and at each step an expression is randomly chosen to perform a 
reduction within. (On the other hand, synchronizing of the processes is very 
hard to model using substitution semantics!) 

Since our value cells effectively solve the readers and writers problem 
(i.e. reads and writes of variables are indivisible) no more than our side 
effect primitive is necessary to synchronize our processes [dijlcstra] [Knuth] 
[Lamport]. However, the techniques for achieving synchronization using only 
:s are quite cumbersome and opaque. It behooves the implementor to make 
things easier for the user by introducing a more tractable synchronization 
primitive (e.g. P+V or monitors or path expressions or ...). Machine language 
programmers have long known that the easiest way to synchronize processes is 
to turn off the scheduling clock during the execution of critical code. We 
have introduced such a primitive, EVALUATE! UN INTERRUPTIBLY, (which is a sort 
of "over-anxious serializer", because it locks out the whole world) into our 
interpreter. 
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Section 5: The Implementation of the Interpreter 



Here we present a real live SCHEME interpreter. This particular version 
was written primarily for expository purposes; it works, but not as 
efficiently as possible. The "production version" of SCHEME is coded somewhat 
more intricately, and runs about twice as fast as the interpreter presented 
below. 

The basic idea behind the implementation is think machine language . In 
particular, we must not use recursion in the implementation language to 
implement recursion in the language being interpreted. This is a crucial 
mistake which has screwed many language implementations (e.g. Micro-PLAKINER 
[Sussman]). The reason for this is that if the implementation language does 
not support certain kinds of control structures, then we will not be able to 
effectively interpret them. Thus, for example, if the control frame structure 
in the implementation language is constrained to be stack-like, then modelling 
more general .control structures in the interpreted language will be very 
difficult unless we divorce ourselves from the constrained structures at the 
outset. 

It will be convenient to think of an implementation machine which has 
certain operations, which are "micro-coded" in LISP; these are used to 
operate on various "registers", which are represented as free LISP variables. 
These registers are: 

NK£XPKK 

The expression currently being evaluated. 

xik£|^y«x 

A pointer to the environment in which to evaluate EXP. 

*«CLINIIC«* 

A pointer to the frame for the computation of which the current one is a 
sfibcomputation. 

MkpQmM 

The "program counter". As each "instruction" is executed, it updates 
**PC** to point to the next instruction to be executed. 

**VAL|«* 

The returned value of a subcomputation. This register is not saved and 
restored in «*CLIMK*« frames; in fact, its sole purpose is to pass Values back 
Safely across the restoration of a frame. 

««UNEyLIS^«, ««EVLIS«* 

I These are utility registers which are part of the state of th^ 

interpreter (they are saved in ««CLINK«* frames). They are used primarily for 

evaluation of components of combinations, but may be used for other! purposes 

also. 



Sussman and Steele December 22. 1975 29 Implementation of the Interpreter 



««TEM** 

A super-temporary register, used for random purposes, and not saved in 
««CLINIK*« frames or across interrupts. It therefore may not be used to pass 
information between "instructions" of the "machine", and so is best thought of 
as an internal hardware register. 

**QUEUE** 

A list of all processes other than the one currently being interpreted. 

**TICIC** 

A magic register which a "hardware clock" sets to T every so often, used 
to drive the scheduler. 

*«PROCESS** 

This register always contains the name of the process currently swapped 
in and running. 
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The following declarations and macros are present only to make the 
compiler happy, and to make the version number of the SCHEME implementation 
available in the global variable VERSION. 

(OECLRRE (SPECIAL «*EXP«« ««UNEVLIS«« ««ENV«« ««:EVLIS«« «4PC«« »«CLINK«« »»vnL«* «*TEn«4c 
««TOP«« ««QUEUE»« ««TICK«4i »«PROCESS«* ««QUflNTUn«« 
VERSION LISPVERSION)) 

(OEFUN VERSION HRCRO (X) 

(COND (COnPILER-STflTE (LIST 'QUOTE (STATUS UREflD))) 
(T (RPLflCfl X 'QUOTE) 

(RPLflCO X (LIST VERSION)) 
(LIST 'QUOTE VERSION)))) 

(DECLARE (READ)) 

(SETQ VERSION ((LAHBOA (COOPILER-STATE) (VERSION)) T)) 

The function SCHEME initializes the system driver. The two SETQ's 
merely set up version numbers. The top level loop itself is written in 
SCHEME, and is a LABELS which binds the function *«TOP«« to be a read-eval- 
print loop. The LISP global variable ««TOP«« is initialized to the closure of 
the ««TOP«* function for convenience and accessibility to user-defined 
functions. 

(OEFUN SCHEHE () 

(SETQ VERSION (VERSION) LISPVERSION (STATUS LISPVERSION)) 

(TERPI?I) ' ; * 

(PRINC '|This is SCHEHE |) 

(PR INC VERSION) 

(PRINC 'I running in LISP |) 

(PRINC LISPVERSION) 

(SETQ ««ENV«« NIL ««QUEUE«« NIL 

#«PROCESS** (CREATE! PROCESS ' (wTOP** 'ISCHEHE — Topl«v«l|>)) 
(SUAPINPROCESS) 

(ALARHCLOCK 'RUNTIHE ««QUANTUn««) 
(KLOOP)) 

(SETQ »#TOP*» 

MBETA (LAHBDA (««nESSAGE««} 
(LABELS ((»»T0P1«« 

(LAHBOA (««IGNOREi«» ««IGN0RE2'»» ««IGN0RE3««) 
(»«T0P1** (TERPRI) (PRINC ' |-.> |) 

(PRINT (SET •» (EVALUATE (READ)))))))) 
(♦«T0P1«« (TERPRI) (PRINC #*nESSACE»») NIL))) 
NIL)) 

When the LISP alarmclock tick occurs, the global register *«TICIC** is 
set to T. «*QUANTUM*«, the amount of runtime between ticks, is measured in 
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micro-seconds. 

(OEFUN SETTICK (X) (SETQ **TICK*« T)) 

(SETQ ««QUANTUn»» 1008000. RLARnCLOCK 'SETTICK) 

NLOOP is the main loop of the interpreter. It may be thought of as the 
instruction dispatch in the micro-code of the implementation machine. If an 
alarmclock tick has occurred, and interrupts are allowed, then the scheduler 
is called to switch processes. Otherwise the "instruction" specified by 
««PC*« is executed via FASTCALL. 

(DEFUN tILOOP 

(DO ((««TICK«« NIL)) (NIL) ;00 foravsr 

(RNO «*TICK«» (ALLOU) (SCHEDULE)) 
(FRSTCRLL ««PC««))) 

FASTCALL is essentially a FUNCALL optimized for compiled "microcode". 
Note the way it pulls the SUBR property to the front of the property list if 
possible for speed. 

(OEFUN FASTCALL (ATSYri) 

(COND ((EQ (CAR (COR ATSYtl)) 'SUBR) 

(SUBRCALL NIL (CADR (COR ATSYH)))) 
(T ((LAHBOA (SUBR) 

(COND (SUBR (RENPROP ATSYtl 'SUBR) 

(PUTPRQP ATSYH SUBR 'SUBR) 
(SUBRCALL NIL SUBR)) 
(T (FUNCALL ATSYfl)))) 
(GET ATSYH 'SUBR))))) 

Interrupts are allowed unless the variable *ALLOW* is bound to NIL in 
the current environment. This is used to implement the 
EVALUATE lUNINTERRUPTIBLY primitive. 

(OEFUN ALLOU 

((LAHBOA (VCELL) 

. (COND. (VCELL (CADR VCELD) 
(T T))) 
(ASSQ '«ALLOU« «»ENV««))) 

Next comes the scheduler. It is apparently interrupt-driven» but in 
fact is not,^ The key here is to think microcode ! There is one place in the 
microcoded instruction interpretation loop which checks to see if there is an 
interrupt pending; in our "machine", this occurs in MLOOP, where ««TICK«« is 
checked on every cycle. This is another case where we must beware of using 
too m^ch of the power of the host language; just as we must avoid using host 
recursion directly to implement recursion, so we must avoid using host 
interrupts directly to implement interrupts. We may not modify any register 
during a host language interrupt, except one (such as «*TIClw««) which is 
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Specifically intended to signal interrupts. Thus, if we were to add an 
interrupt character facility to SCHEME similar to that in MacLISP [Moon], the 
Maclisp interrupt character function would merely set a register like *«TICIC«* 
and dismiss; MLOOP would eventually notice that this register had changed and 
dispatch to the interrupt handler. All this implies that the "microcode" for 
the interrupt handlers does not itself contain critical code that must be 
protected from host language interrupts. 

When the scheduler is invoked, if there is another process waiting on 
the process queue, then the current process is swapped out and put on the end 
of the queue, and a new process swapped in from the front of the queue. The 
process stored on the queue consists of an atom which has the current frame 
and ««VAL** register on its property list. Note that the ««TEH*« register is 
not saved, and so cannot be used to pass information between instructions. 

(DEFUN SCHEDULE () 

(CONO (««QUEUE«« 

(SUflPOUTPROCESS) 

(NCONC »«QUEUE»« (LIST ««PROCESS««) ) 

(SETQ »«PROCESS»« (COR ««QUEUE««) 

»«QUEUE«« (COR «»QUEUE«»)) 
(SUflPINPROCESS)}) 
(SETQ ««TICK«« NIL) 
(OLARnCLOCK 'RUNTinE «4QURNTUn««) ) 

(OEFUN SUflPOUTPROCESS 

((Lfln&OR (««CLINK«») 

(PUTPROP «*PROCESS«» (SflVEUP **PC*») 'CLINK) 
(PUTPROP ««PROCESS** ♦♦VflL»« 'VflD) 
««CLINK**)) 

(OEFUN SUAPINPROCESS 

I (SETQ •coCLINKoo (GET «<<PROCESS«* 'CLINK) 

4>«VPL«« (GET »«PR0CESS4c» 'VflD) 
(RESTORE)) 

Primitive operators are LISP functions, i.e. SUBRs, EXPRs, and LSUBRs. 

CpEFUN PRinOP (X) (GETL X ' (SUBR EXPR LSUBR))) 

■ SAVEUP conses a new frame onto the *«CLINlv*« structure. It s^ve& the 
values of all important registers. It takes one argument, RETAG, which is the 
instruction to return to when the computation is restored. 

(OEFUN SOVEUP (RETflG) 

(SETQ ««C|.INK«« (LIST ««EXP»» «»UNEVLIS«« ««ENV«« ««EVLIS«* RETAG «*CLINK««))) 

RESTORE restores a computation from the CLINK. The use of TEMP is a 
kludge to optimize the compilation of the "microcode". 
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(DEFUN RESTORE 
<PROC (TEflP) 

(SETQ TEnP (OR »«CLINK«» 

(ERROR '(PROCESS RAN OUT > RESTORE! 
«*EXP*» 
'FfllL-flCT)) 
»«EXP«c* (CAR TEHP) 
TEMP (COR TEOP) 
«*UNEVLIS#* (CAR TEHP) 
TEflP (COR TEOP) 
*»ENV#* (CAR TEHP) 

TEttP (COR TEHP) 

«*EVLIS*4 (CAR TEHP) 

TEHP (COR TEOP) 

**PC*» (CAR TEOP) 

TEHP (COR TEOP) 

«»CLINK«» (CAR TEnP))}) 

This is the central function of the SCHEME interpreter. This 
"instruction" expects «*EXP«* to contain an expression to evaluate, and 
««ENV** to contain the environment for the evaluation. The fact that we have 
arrived here indicates that *«PC«« contains 'AEVAL, and so we need not change 
*«PC«« if the next instruction is also to be AEVAL. Besides the obvious 
objects likes numbers, identifiers, LAMBDA expressions, and BETA expressions 
(closures), there are also several other objects of interest. There are 
primitive operators (LISP functions); AINTs (which are to SCHEME as FSUBRs 
like COND are to LISP); and AMACROs, which are used to implement DO, AND, OR. 
COND, BLOCIC, etc. 
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(DEFUN AEVRL 

(COND ((RTOn «»EXP«») 

(CONO ((NUtlBERP ««EXP««) 

(SETQ **VflL** *»EXP««) 
(RESTORE)) 
((PRinOP *«EXP#«) 
(SETQ «<:VflL«« «*EXP««) 
(RESTORE)) 

((SETQ «»TEn»« (flSSQ 4t«EXP*« ««ENV«*)) 
(SETQ ««VRL9« (CROR ««TEn««)) 
(RESTORE)) 
(T (SETQ 4>»VRL«« (SYHEVflL ««EXP»«)) 
(RESTORE)))) 
((flTOfI (CAR »«EXP**)) 
(CONO ((SETQ «*TEn** (GET (CAR *»EXP**) 'flINT)) 
(SETQ >)c«PC«« ««TEn«*)) 
((EQ (CRR ««EXP««) 'LRHBDR) 
(SETQ 4>«VflL«* (LIST *BETfl ««EXP*« «*ENV««)) 
(RESTORE)) 
((SETQ «:«TEil4t<» (CET (CRR ««EXP**) 'RHRCRO)) 
(SETQ ««EXP«4 (FUNCRLL ««TEn** «»EXP««))) 
(T (SETQ **EVLIS»* NIL 

»«UNEVLIS»« ««EXP«« 
**PC*« 'EVLIS)))) 
((EQ (CRRR »«EXP««) 'LRHBOR) 
(SETQ «»EVLIS»« (LIST (CAR «»EXP4>*}) 
««UNEVLIS»« (COR ««EXP««) 
«*PC»« 'EVLIS)) 
(T (SETQ «*EVLIS** NIL 

««UNEVLIS<:» ««:EXP»« 

*«PC** 'EVLIS)))) 

We come to EVLIS when a combination is encountered. The intention is to 
evaluate each component of the combination and then apply the resulting 
function to the resulting arguments. We use the register ««UNEVLIS«« to hold 
the list of components yet to be evaluated, and the register ««EVLIS«« to hold 
the list of evaluated components. We assume that these have been set up by 
AEVAL. Note that in the case of an explicit LAMBDA expression in the CAR of a 
combination «*UNIEVLIS«* is initialized to be the list of unevaluated arguments 
and ««EVLIS** is initialized to be the list containing the lambda expression. 

EVLIS checks to see if there remain any more components yet to be 
evaluated. If not, it applies the function,. Note that the primitive 
operators ar;e applied using the LISP function APPLY. Note also how a BETA 
expression controls the environment in which its body is to be evaluated. 
DELTA expressions are CATCH tags (see CATCH). It is interesting that the 
evaluated components are collected in the reverse order from that which we 
need them in, and so we must reverse the list before applying the function. 
Do you see why we must not use side effects (e.g. the NREVERSE function) to 
reverse the list? Think about CATCH! 

If there remain components yet to be evaluated, EVLIS saves up a frame. 
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SO that execution can be resumed at EVLISl when the evaluation of the 
component returns with a value. It then sets up >*>*EXP>"* to point to the 
component to be evaluated and dispatches to AEVAL. 

(OEFUN EVLIS () 

(CONO ((NULL «»UNEVLIS»«) 

(SETQ »«EVLIS«« (REVERSE ««EVLIS««)) 
(CONO ((RTOn (CAR 4«EVLIS<»«)) 

(SETQ 4>WflL«4> (RPPLY (CAR ««EVLIS««) (COR «*EVLIS*«))) 
(RESTORE)) 
((EQ (CRflR ««EVLIS»«) 'LRriBDR) 

(SETQ 4c<cENV«« (PRIRLIS (CRORR «>»EVLIS«*) (COR **EVLIS**) «*ENV**) 
*«EXP«« (CROOAR »*EVLIS«*) 
«»PC«* 'REVflD) 
((EQ (CRRR ««EVLIS««) 'BETA) 
(SETQ »«ENV»» (PAIRLIS (CROR (CAORR #«EVLIS«*)) 
(COR «»EVLIS»«) 
(CROOAR ««EVLIS«*>) 
»«EXP«« (CAOOR (CRORR 4c*EVLIS**)) 
»«PC«« 'REVAD) 
((EQ (CAAR 4»EVLIS««} »OELTA) 

(SETQ ««CLINK«« (CAOAR »«EVLIS>»«)) 
(RESTORE) ) 

(T (ERROR 'IBRD FUNCTION - EVARCLIST| ♦♦EXP** 'FAIL-ACT)))) 
(T (SAVEUP • EVLISl) 

(SETQ **EXP»* (CAR **UNEVLIS»«) 
»*PC*« 'AEVAL)))) 

The purpose if EVLISl Is to gobble up the value, passed in the ««VAL*« 
register, of the subexpression just evaluated. It saves this value on the 
list in the ««EVLIS«« register, pops off the unevaluated subexprasiion from 
the *«UNIEVLIS*« register, and dispatches bade to EVLIS. 

(OEFUN EVLISl 

(SETQ **EVLIS«» (CONS *«VAL«« «*EVLIS»*) 
*»UNEVLIS«* (COR «*UNEVLIS**> 
«*PC«« 'EVLIS)) 

Here is the code for the various AINTs. On arrival at the instruction 
for an AINIT, *«EXP*« contains the expression whose functional position 
contains the name of the AINIT. None of the arguments have been evaluated, and 
no new control frame has been created. Note that each AINT is defined by the 
presence of ^n AINT property on the property list of the LISP atom which is 
its name. The value of this property is the LISP function which is the first 
"instruction" of the AINT. 

EVALUATE is similar to the LISP function EVAL; it evaluates its 
argument, which should result in a s-expression, which is then fed back into 
the SCHEME expression evaluator (AEVAL). 
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(DEFPROP EVRLUfiTE EVRLUflTE flINT) 

(OEFUN EVflLUPTE () 

(SflVEUP 'EVflLUflTED 
(SETQ ««EXP«* (CAOR ««EXP««) 
««PC«« 'REVAD) 

(OEFUN EVRLURTEl 

(SETQ ««EXP»« «»VRL«« 
««PC»# 'REVRD) 



IF evaluates its first argument, with a return address of IFl. IFl 
examines the resultino ««VAL*«, and gives either the second or third argument 
to AEVAL depending on whether the *«VAL*« was non-NIL or NIL. 

(OEFPROP IF IF RINT) 

(OEFUN IF () 

(SRVEUP 'IFD 

(SETQ *»EXP*« (CRDR «*EXP*») 
«*PC«« 'REVRD) 

(OEFUN IFl () 

(CONO (««VRL«» (SETQ ««EXP«« (CRDOR ««EXP«>i<})) 

(T (SETQ »«EXP»» (CROOOR ««EXP»«))}) 
(SETQ »«PC«* 'REVRD) 

As it was in the beginning, is now, and ever shall be: QUOTE without 
end. (Amen, amen.) 

(OEFPROP QUOTE RQUOTE RINT) 

(OEFUN RQUOTE 

(SETQ »«VRL«« (CflOR ««EXP««)) 
(RESTORE) ) 

LABELS merely feeds its second argument to AEVAL after constructing a 
fiendishly clever environment structure. This is done in two stages: first 
the skeleton of the structure is created, with null environments in the 
closures of the bound functions; next the created environment is clobbered 
into each of the closures. 
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(OEFPROP LABELS LABELS RINT) 

(OEFUN LABELS 

(SETQ «*TEn«* (HAPCRR ' (LRnBDA (OEF) 

(LIST CCAR OEF) 

(LIST 'BETA (CAOR OEF) NIL))) 
(CAOR »«EXP««))) 
(HAPC MLAHBOA (VC) (RPLACA (COOAOR VC) ««TEn*«)} ««TEn*«) 
(SETQ »»ENV«» (NCONC «»TEn«« «>«ENV«*) 
««EXP«« (CAOOR »»EXP»«) 
««PC>»« 'AEVAD) 

We now come to the multiprocess primitives. 

CREATE 'PROCESS temporarily creates a new set of machine registers (by 
the lambda-binding mechanism of the host language), establishes the new 
process in those registers, swaps it out, and returns the new process id; 
returning causes the old machine registers to be restored. 

(OEFUN CREATE I PROCESS (EXP) 

((LAnBOA («»PROCESS«« ««EXP«« ««ENV«« »«UNEVLIS«<c «»EVLIS«« «*PC«« ««CLINIC*« ««VAL««) 
(SURPOUTPROCESS) 
««tPROCESS«*) 
(GENSYH) 
EXP 

»«ENV«« 
NIL 
NIL 
'AEVAL 

(LIST NIL NIL NIL >JIL 'TERHINATE NIL) 
NIL)) 

(DEFUN START! PROCESS (P> 

(COND ((OR (NOT (ATOH P>) (NOT (GET P 'CLINK))) 

(ERROR 'IBAD PROCESS .- START I PROCESS] «*EXP«« 'FAIL-ACT))) 
(OR (EG P «*PROCESS««) (HEHQ P «*QUEUE««) 

(SETQ ««QUEUE«* (NCONC «*QUEUE»« (LIST P)))) 
P) 

(DEFUN STOP! PROCESS (P) 

(CONO ((HEHQ P ««QUEUE*«) 

(SETQ ««QUEUE»« (DELQ P ««QUEUE««))) 
((EQ P ««i^ROCESS«») (TERHINATE))) 
P) 

I ;^ . . i . 

TERMINATE is ^n internal microcode routine which terminates the current 
process. If the current process is the only one, then all processes have been 
stopped* and so a new SCHEME top level is created; otherwise TERMINATE pulls 
the next process off the scheduler queue and swaps it in. Note that we cannot 
use SWAPINPR0CE5S because a RESTORE will happen in EVLIS as soon as TERMINATE 
completes (this is a very deep global property of the interpreter, and a fine 
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source of bugs; much care is required). 

(OEFUN TERMINflTE 

(CONO ((NULL »«QUEUE:»$) 
(SETQ »*PROCESS** 

(CREATE! PROCESS ' {«*TOP«» '| SCHEME — QUEUEOUTj)))) 
(T (SETQ ««PROCESS»« (CRR «4QUEUE4«) 
««QUEUE«» (COR »»QUEUE««} ) ) ) 
(SETQ *«CLINK»» (GET »«PROCESS** 'CLINK)) 
(SETQ *«VflL** (GET **PROCESS*» 'VflD) 
'TERtllNflTE-VflLUE) 

EVALUATE lUNINTERRUPTIBLY merely binds the variable «ALLOW« to NIL, and 
then evaluates its argument. This is why this primitive follows the scoping 
rules for variables! 

(DEFPROP EVflLUflTE lUNINTERRUPTIBLY EVflLUflTE lUNINTERRUPTIBLY flINT) 

(OEFUN EVRLURTE lUNINTERRUPTIBLY 

(SETQ ««ENV«« (CONS (LIST '«flLLOU« NIL) »tENV«9) 
«»EXP«* (CflOR ««E](P»«) 
««PC>ic>f 'RE VflD) 

DEFINE closes the function to be defined in the null environment, and 
installs the closure in the LISP value cell. 

(DEFPROP OEFINE DEFINE HINT) 

(OEFUN OEFINE 

(SET (CflOR ««EXP«*) (LIST 'BETA (CflDOR *«:EXP*«) NIL)) 
(SETQ **VflL*# (CflOR »*EXP**)) 
(RESTORE) ) 

ASET looks up the specified variable in the current environment, and 
clobbers the value cell in the environment with the new value. If the 
variable is not bound in the current environment, the LISP value cell is set. 
Note that ASET does not need to be an AINT, since it does not fool with order 
of evaluatipn; all it needs is access to the "machine register" *«ENV«*. 

(OEFUN flSET (VflR VRLU) 

(SETQ «»,TEH«* (flSSQ VflR *«ENV**> ) 

(CONG (*fTEn«« (RPLRCR (COR ««TEn»*) VRLU)) 

(TjSET VflR VRLU))) 
VRLU) 

CATCH binds the tag variable to a DELTA expression which contains the 
current CLINK. When AEVAL applies such an expression as a function (of one 
argument), it makes the **CLINIK** in the DELTA expression be the ««CLINJC*«, 
places the value of the argument in «*VAL**, and does a RESTORE. The effect 
is to return from the CATCH expression with the argument to the DELTA 
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expression as its value (can you see why?). 

(OEFPROP CnTCH RCRTCH flINT) 

(OEFUN RCflTCH () 

(SETQ *«ENV«# (CONS (LIST (CflOR **EXP#») (LIST ' DELTA **CLINK**)) ♦♦ENV**) 
««EXP«* (CADDR ««EXP»») 
«<'PC«» 'REVRD) 

PAIRLIS is as in the LISP 1.5 Programmer's Manual [McCarthy]. 

(DEFUN PRIRLIS (X Y Z) 

(00 ((I X (COR I)) 
(J Y (COR J)) 

(L Z (CONS (LIST (COR I) (CAR J)) L))) 
((AND (NULL I) (NULL J)) L) 
(AND (OR (NULL I) (NULL J)) 

(ERROR 'lURONC NUHBER OF RRCUnENTS - PRIRLIS | 
>0t4tEXP<t>« 
'URNC-NO-RRCS)))) 

AMACROs are fairly complicated beasties, and have very little to do with 
the basic issues of the implementation of SCHEME per se, so the code for them 
will not be given here. AMACROs behave almost exactly like MacLISP macros 
[Moon]. 

This is the end of "the SCHEME interpreter! 
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